home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / K-L / LabelMaster 1.0.cpt / LabelMaster 1.0 / background_2812.txt < prev    next >
Text File  |  1990-12-13  |  2KB  |  111 lines
  1. -- background: 2812 from stack: in.0
  2. -- bmap block id: 4693
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on idle
  8.  
  9. end idle
  10.  
  11.  
  12.  
  13.  
  14.  
  15.  
  16. -- part 15 (button)
  17. -- low flags: 00
  18. -- high flags: 0000
  19. -- rect: left=13 top=294 right=323 bottom=45
  20. -- title width / last selected line: 0
  21. -- icon id / first selected line: 21700 / 21700
  22. -- text alignment: 1
  23. -- font id: 0
  24. -- text size: 12
  25. -- style flags: 0
  26. -- line height: 16
  27. -- part name: Home
  28. ----- HyperTalk script -----
  29. on mouseUp
  30.   visual effect iris open
  31.   go Home
  32. end mouseUp
  33.  
  34.  
  35.  
  36. -- part 16 (button)
  37. -- low flags: 00
  38. -- high flags: 0000
  39. -- rect: left=455 top=292 right=338 bottom=508
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 1
  43. -- font id: 0
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: Prev
  48. ----- HyperTalk script -----
  49. on mouseUp
  50.   put the userLevel into saveLevel
  51.   set the userLevel to 3
  52.   if the userLevel < 3 then exit mouseUp
  53.   if the freeSize of this stack > 0 then domenu "compact stack"
  54.   push card
  55.   visual effect dissolve
  56.   go to card id 6479
  57.   set the cursor to 1
  58.   tabkey
  59.  
  60. end mouseUp
  61.  
  62.  
  63.  
  64. -- part 17 (button)
  65. -- low flags: 00
  66. -- high flags: 0000
  67. -- rect: left=455 top=240 right=284 bottom=510
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 0 / 0
  70. -- text alignment: 1
  71. -- font id: 0
  72. -- text size: 12
  73. -- style flags: 0
  74. -- line height: 16
  75. -- part name: Next
  76. ----- HyperTalk script -----
  77. on mouseUp
  78.   put the userLevel into saveLevel
  79.   set the userLevel to 3
  80.   if the userLevel < 3 then exit mouseUp
  81.   if the freeSize of this stack > 0 then domenu "compact stack"
  82.   push card
  83.   visual effect dissolve
  84.   go to card id 5848
  85.   set the cursor to 1
  86.   tabkey
  87. end mouseUp
  88.  
  89.  
  90.  
  91. -- part 28 (button)
  92. -- low flags: 00
  93. -- high flags: 0000
  94. -- rect: left=453 top=181 right=223 bottom=491
  95. -- title width / last selected line: 0
  96. -- icon id / first selected line: 32462 / 32462
  97. -- text alignment: 1
  98. -- font id: 0
  99. -- text size: 12
  100. -- style flags: 0
  101. -- line height: 16
  102. -- part name: New Button
  103. ----- HyperTalk script -----
  104. on mouseUp
  105.  
  106.   push card
  107.   Visual effect dissolve to white
  108.   go to card id 4298
  109. end mouseUp
  110.  
  111.